(combine-run-hooks): Only run-hooks if there's a hook to run.

diff --git a/lisp/subr.el b/lisp/subr.el
index 3adad4268aa35afe2ef25c9a488ad452253b7d27..6abec8c5b416eb9e8199a6723ca34051fd9415ea 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1140,7 +1140,8 @@ in BODY."
           (setq ,saved-combine-run-hooks combine-run-hooks)
           (fset 'run-hooks ,saved-run-hooks)
           (setq combine-run-hooks t)
-          (apply 'run-hooks ,saved-combine-run-hooks))))))
+          (if ,saved-combine-run-hooks
+              (apply 'run-hooks ,saved-combine-run-hooks)))))))
 
 
 (defmacro with-syntax-table (table &rest body)